; 定义要处理的字符串
originalString := "ZY040100263-180贴胶控制面板(1).pdf"

; 查找最后一个点的位置
lastDotPos := InStr(originalString, ".", true)

; 截取字符串从开头到最后一个点之前的部分
if (lastDotPos > 0) {
    newString := SubStr(originalString, 1, lastDotPos - 1)
} else {
    newString := originalString ; 如果没有找到点，则保持原字符串
}

; 显示处理后的字符串
MsgBox newString
